home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Wildcat Gold - The Optical BBS
/
Wildcat Gold - The Optical BBS (The Golden ROM Series)(Volume 4 Number 1)(The Digital Publishing Company)(1992).ISO
/
sdn
/
ca28_3b.sdn
/
KERUP.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1989-10-09
|
1KB
|
47 lines
; ----- KERUP: Invoke PCKERMIT to upload.
; ----------------------------------------------------------------
; Note: This script invokes PCKERMIT using the current comm
; port settings.
; ----------------------------------------------------------------
;
; Get the file spec to upload
;
GOSUB Get_Name ; Read file name into S0
IF FAILED ; If ESC pressed
EXIT ; Stop here
ENDIF
;
; Invoke PCKERMIT
;
COMPARMS S1 ; read current settings
S2 = "PCKERMIT.EXE -l " * S1(11:14) * " -b " * S1(0:3) * " -s " * S0 ; e.g. "... -lcom2 -b1200 -s <file>
RUN S2 ; Load and run
EXIT
;
; ----- Subroutine: Open a window and ask for a file name
; SUCCESS/Failed returned to indicate ESCape
; S0 returns the name
;
Get_Name:
WOPEN 10 10 13 70 (Default) ESC
ATSAY 10 ,12 (default) " KERMIT upload "
ATSAY 11 ,11 (default) " Specify the file name:"
ATSAY 13 30 (default) " Press ESC to exit "
ATGET 12, 12 (default) 54 S0
WCLOSE
;
; If null response, return failed
;
SET SUCCESS ON ; Default return
LJ S0 ; Left justify
IF NULL S0
SET SUCCESS OFF
ENDIF
RETURN
;
; ESC hit during entry
;
ESC:
S0 = "" ; Make a null return
RETURN